﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
%>
	<card title="添加新用户"><p align="left">
		手机号:<br/>
		<input name="mobile" emptyok="true"  format="*N" maxlength="11"/><br/>
		<anchor>确定提交
    	<go href="adduser1.asp?Action=login&amp;sid=<%=sid%>" method='post'>
                                <postfield name="mobile" value="$(mobile:n)" />
			</go>
		</anchor><br/>
-------------<br/>
<a href='user.asp?sid=<%=sid%>'>返回用户管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function


Function login

		dim rs8,sql8,errs,siddt
	        dim mobile
		mobile=Request("mobile")
		errs=""
		if len(mobile)<>11  then errs=errs&"手机号码格式错误"
	%>
	<card id="login" title="添加新用户" ontimer="user.asp?sid=<%=sid%>"><timer value="20"/>
		<p align="left">
	<%
	IF len(errs)=0 then


				siddt=qingtian.RunStr
				siddt=md5(siddt)
				siddt=siddt&md5(strReverse(siddt))
				set rs8=Server.CreateObject("Adodb.Recordset")
  				sql8="select * FROM qingtian_user"
  				rs8.open sql8,conn,1,3
				rs8.addnew
				rs8("user")=mobile
				rs8("name")="新会员"&left(siddt,3)&left(mobile,3)
				rs8("pass")=md5(right(mobile,6))
				rs8("zf")=10
				rs8("mail")=right(mobile,6)&"@139.com"
				rs8("mobile")=mobile
				rs8("doing")="注册为本站会员"
				rs8("doingtime")=now()
				rs8("mark")="这家伙很懒，什么都没留下……"
				rs8("xingbie")="女"
				rs8("sid")=siddt
				rs8("touxian")="/img/girl/2.gif"
				rs8.update
				rs8.close
				set rs8=nothing
		%>添加新用户成功!<br/><%

	else%>
		<%=errs%>
		<a href="adduser1.asp?sid=<%=sid%>">返回修改</a><br/>
<%	end if
%>
<a href='user.asp?sid=<%=sid%>'>返回用户管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 


%>
